home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / lowfile.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  5KB  |  225 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 16 "lowfile.d"
  17. #include <fcntl.h> 
  18. #include <sys/types.h> 
  19. #include <sys/stat.h> 
  20. #ifndef unix 
  21. #include <io.h> 
  22. #endif 
  23.  
  24. #if defined(sparc) || defined(unix) 
  25. #include <unistd.h> 
  26. #define tell(h) lseek(h, 0L, SEEK_CUR) 
  27. #endif 
  28.  
  29. #define    CLASS    LowFile_c
  30. #define    ivType    LowFile_iv_t
  31.  
  32. #include "generics.h"
  33.  
  34. object    LowFile_c;
  35.  
  36.  
  37. #line 38 "lowfile.c"
  38. typedef struct  _LowFile_iv_t  {
  39.     object iName;
  40.     int iHandle;
  41. }    LowFile_iv_t;
  42.  
  43.  
  44.  
  45. #line 36 "lowfile.d"
  46. cmeth objrtn LowFile_cm_gNew(object self)
  47. { 
  48.     return gShouldNotImplement(self, "gNew"); 
  49. } 
  50.  
  51. cmeth objrtn LowFile_cm_gOpenLowFile(object self, char *name, int oflag, int pmode)
  52. { 
  53.     object obj; 
  54.     ivType *iv; 
  55.     int handle; 
  56.  
  57.     if (IsObj((object) name)) 
  58.         name = gStringValue((object) name); 
  59.     handle = open(name, oflag, pmode); 
  60.     if (handle == -1) 
  61.         return NULL; 
  62.     obj = oSuper(LowFile_c, gNew, self)(self); 
  63.     iv = ivPtr(obj); 
  64.     iv->iName = gNewWithStr(String, name); 
  65.     iv->iHandle = handle; 
  66.     return obj; 
  67. } 
  68.  
  69.  
  70. imeth objrtn LowFile_im_gDispose(object self)
  71. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  72.     close(iv->iHandle); 
  73.     gDispose(iv->iName); 
  74.     return oSuper(LowFile_c, gDispose, self)(self); 
  75. } 
  76.  
  77. imeth int LowFile_im_gRead(object self, char *buf, unsigned n)
  78. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  79.     return read(iv->iHandle, buf, n); 
  80. } 
  81.  
  82. imeth int LowFile_im_gWrite(object self, char *buf, unsigned n)
  83. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  84.     return write(iv->iHandle, buf, n); 
  85. } 
  86.  
  87. imeth char * LowFile_im_gGets(object self, char *buf, int sz)
  88. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  89.     int h = iv->iHandle; 
  90.     int i, r; 
  91.     char c; 
  92.  
  93.     if (sz <= 0) 
  94.         return NULL; 
  95.     if (sz-- == 1) { 
  96.         *buf = '\0'; 
  97.         return buf; 
  98.     } 
  99.     for (i=0 ; i < sz ; ) { 
  100.         r = read(h, &c, 1); 
  101.         if (!r && !i || r < 0) 
  102.             return NULL; 
  103.         if (!r) 
  104.             break; 
  105.         buf[i++] = c; 
  106.         if (c == '\n') 
  107.             break; 
  108.     } 
  109.     buf[i] = '\0'; 
  110.     return buf; 
  111. } 
  112.  
  113. imeth long LowFile_im_gAdvance(object self, long n)
  114. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  115.     int h = iv->iHandle; 
  116.     long p = tell(h); 
  117.     long r = lseek(h, n, SEEK_CUR); 
  118.     return r >= 0L ? r-p : 0L; 
  119. } 
  120.  
  121. imeth long LowFile_im_gRetreat(object self, long n)
  122. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  123.     int h = iv->iHandle; 
  124.     long p = tell(h); 
  125.     long r = lseek(h, -n, SEEK_CUR); 
  126.     return r >= 0L ? p-r : 0L; 
  127. } 
  128.  
  129. imeth long LowFile_im_gSeek(object self, long n)
  130. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  131.     long r = lseek(iv->iHandle, n, SEEK_SET); 
  132.     return r; 
  133. } 
  134.  
  135. imeth long LowFile_im_gPosition(object self)
  136. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  137.     return tell(iv->iHandle); 
  138. } 
  139.  
  140. imeth long LowFile_im_gLength(object self)
  141. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  142.     struct stat sb; 
  143.     int r; 
  144.  
  145.     r = fstat(iv->iHandle, &sb); 
  146.     return r ? -1L : sb.st_size; 
  147. } 
  148.  
  149. imeth char * LowFile_im_gName(object self)
  150. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  151.     return gStringValue(iv->iName); 
  152. } 
  153.  
  154. imeth int LowFile_im_gEndOfStream(object self)
  155. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  156. #ifndef unix 
  157.         return eof(iv->iHandle); 
  158. #else 
  159.         gShouldNotImplement(self, "EndOfStream"); 
  160.     iv->iHandle = iv->iHandle; 
  161.     return 0; 
  162. #endif 
  163.     } 
  164.  
  165. imeth int LowFile_im_gFileHandle(object self)
  166. { LowFile_iv_t *iv = GetIVs(LowFile, self);
  167.     return iv->iHandle; 
  168. } 
  169.  
  170.  
  171. #line 172 "lowfile.c"
  172.  
  173. objrtn    LowFile_initialize(void)
  174. {
  175.     static  CRITICALSECTION  cs;
  176.     static  int volatile once = 0;
  177.  
  178.     ENTERCRITICALSECTION(_CI_CS_);
  179.     if (!once) {
  180.         INITIALIZECRITICALSECTION(cs);
  181.         once = 1;
  182.     }
  183.     LEAVECRITICALSECTION(_CI_CS_);
  184.  
  185.     ENTERCRITICALSECTION(cs);
  186.  
  187.     if (LowFile_c) {
  188.         LEAVECRITICALSECTION(cs);
  189.         return LowFile_c;
  190.     }
  191.     INHIBIT_THREADER;
  192.     Stream_initialize();
  193.     if (LowFile_c)  {
  194.         ENABLE_THREADER;
  195.         LEAVECRITICALSECTION(cs);
  196.         return LowFile_c;
  197.     }
  198.     LowFile_c = gNewClass(Class, "LowFile", sizeof(LowFile_iv_t), 0, Stream, END);
  199.     cMethodFor(LowFile, gNew, LowFile_cm_gNew);
  200.     cMethodFor(LowFile, gOpenLowFile, LowFile_cm_gOpenLowFile);
  201.     iMethodFor(LowFile, gRetreat, LowFile_im_gRetreat);
  202.     iMethodFor(LowFile, gPosition, LowFile_im_gPosition);
  203.     iMethodFor(LowFile, gLength, LowFile_im_gLength);
  204.     iMethodFor(LowFile, gWrite, LowFile_im_gWrite);
  205.     iMethodFor(LowFile, gEndOfStream, LowFile_im_gEndOfStream);
  206.     iMethodFor(LowFile, gSeek, LowFile_im_gSeek);
  207.     iMethodFor(LowFile, gAdvance, LowFile_im_gAdvance);
  208.     iMethodFor(LowFile, gDispose, LowFile_im_gDispose);
  209.     iMethodFor(LowFile, gName, LowFile_im_gName);
  210.     iMethodFor(LowFile, gGets, LowFile_im_gGets);
  211.     iMethodFor(LowFile, gGCDispose, LowFile_im_gDispose);
  212.     iMethodFor(LowFile, gDeepDispose, LowFile_im_gDispose);
  213.     iMethodFor(LowFile, gFileHandle, LowFile_im_gFileHandle);
  214.     iMethodFor(LowFile, gRead, LowFile_im_gRead);
  215.  
  216.     ENABLE_THREADER;
  217.  
  218.     LEAVECRITICALSECTION(cs);
  219.  
  220.     return LowFile_c;
  221. }
  222.  
  223.  
  224.  
  225.